home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / listings / v_03_02 / 3n02064a < prev    next >
Text File  |  1991-12-17  |  402b  |  20 lines
  1. {*
  2.  * view a set as a byte array
  3.  *}
  4. type
  5.     month = (JAN, FEB, MAR, APR, MAY, JUN, JUL, AUG,
  6.         SEP, OCT, NOV, DEC);
  7.     month_set = set of month;
  8.     byte_array = array [0 .. sizeof(month_set)-1]
  9.         of byte;
  10. var
  11.     thirty_days : month_set;
  12.     p : ^byte_array;
  13.     i : integer;
  14. begin
  15. thirty_days := [APR, JUN, SEP, NOV];
  16. p := addr(thirty_days);
  17. for i := 0 to sizeof(p^)-1 do
  18.     writeln(p^[i]:2);
  19. end.
  20.